home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
os2
/
srefv112.zip
/
SREFPRC1.ZIP
/
EXPIRE.SRF
< prev
next >
Wrap
Text File
|
1996-05-16
|
1KB
|
32 lines
/* ----------------------------------------------------------------*/
/* Routine to create an "expires" response header from scratch.
Assumes respons type 200, encoding=binary, no message id
Dates are GMT (assuming GMT offset works)
Arguments are:
time offset (fraction of a day to add to the expires, default=.04)
Content length (default=0)
mime type (def= text/html)
noauto header flag (N or Y) (default = YES )
(defaults are used if not provided)
*/
sref_expire_response:
parse arg aoffset, alength,am1,adrop
if am1="" then am1="text/html"
if alengh="" then alength=0
if aoffset="" then aoffset=0.04
adrop1=' '
if adrop="" | abbrev(translate(adrop),'Y')=1 then adrop1="NOAUTO"
'RESPONSE HTTP/1.0 200 OK EXPIRE OFFSET' /* Set HTTP response line */
'HEADER ' adrop1 ' ADD Server: ' server()
thisdate=sref_new_gmt()' GMT '
expdate=sref_new_gmt(aoffset)' GMT'
'HEADER ADD Date: 'thisdate
'HEADER ADD Content-Type: ' am1
'HEADER ADD Content-Length:' alength
'HEADER ADD Expires:'expdate
'HEADER ADD Content-Transfer-Encoding: binary '
return 0